home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 001-025 / scopedisk6 / arexx / arexx1 / join.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-18  |  315b  |  15 lines
  1. /* join -- a 'front end' for join. Fixes a problem with join. */
  2. parse arg x
  3. temp = 'arexxtempfile'
  4. do i=1 to (words(x)-1)
  5.   if word(x,i) = word(x,words(x)) then do
  6.     oops = word(x,words(x))
  7.     x = delword(x,words(x)) || temp
  8.     'c:join' x
  9.     'copy ' temp ' ' oops
  10.     'del' temp
  11.     exit
  12.   end
  13. end
  14. 'c:join' x
  15.